home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 016 / herc.arc / GPNT.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-03-15  |  854 b   |  44 lines
  1.  
  2. ; GRAPHICS MODE FOR C FUNCTION
  3. ; GRAPHICS POINT PIXEL ON/OFF
  4. ; int gpnt(xint, yint);
  5.  
  6.         name   gpnt
  7.  
  8. public  _gpnt
  9. extrn   _gaddr:word, _gmask:byte, _gmap2:near
  10.  
  11. DGROUP  group   _DATA
  12.         assume  ds:DGROUP
  13.  
  14. _DATA   segment word    public  'DATA'
  15. _DATA   ends
  16.  
  17. _TEXT   segment byte    public  'CODE'
  18.         assume  cs:_TEXT
  19.  
  20. _gpnt   proc    near
  21.         push    bp
  22.         mov     bp, sp
  23.         push    es
  24.         mov     cx, [bp+4]
  25.         mov     dx, [bp+6]
  26.         call    _gmap2
  27.         mov     bx, _gaddr
  28.         mov     cl, _gmask
  29.         mov     ax, 0b800h
  30.         mov     es, ax
  31.         mov     ax, 0
  32.         test    es:[bx],cl
  33.         jz      hg917
  34.         mov     ax, 0ffffh
  35. hg917:  pop     es
  36.         mov     sp, bp
  37.         pop     bp
  38.         ret
  39. _gpnt   endp
  40.  
  41. _TEXT   ends
  42.         end
  43.  
  44.